﻿Imports Negocio
Imports Utilitario
Public Class frmAgregaConceptoNuevo

    Dim codCliente As String = ""
    Dim nomCliente As String = ""
    Dim codCliConcepto As String = ""
    Dim valorConcepto As String = ""
    Dim descripcion As String = ""
    Dim usuario As String = ""

    Dim util As New Utiles
    Dim servicio1 As New ClienteNegocio

    Sub New(codCliente As String, nomCliente As String, codCliConcepto As String, valorConcepto As String, descripcion As String, usuario As String)

        ' Llamada necesaria para el diseñador.
        InitializeComponent()

        ' Agregue cualquier inicialización después de la llamada a InitializeComponent().
        Me.codCliente = codCliente
        Me.nomCliente = nomCliente
        Me.codCliConcepto = codCliConcepto
        Me.valorConcepto = valorConcepto
        Me.descripcion = descripcion
        Me.usuario = usuario
    End Sub

    Sub mostrarBotones(x As Boolean, y As Boolean)
        btnGuardar.Visible = x
        btnActualizar.Visible = y
    End Sub

    Sub cargarTiposConceptos()
        Dim ds As DataSet = servicio1.obtenerTipoConceptos()
        With cboConcepto
            .DataSource = ds.Tables(0)
            .ValueMember = "CON_Codigo"
            .DisplayMember = "CON_Descripcion"
        End With
    End Sub

    Sub cargaInicial()
        cargarTiposConceptos()
        txtCliente.Text = codCliente
        txtNomCliente.Text = nomCliente
        If codCliConcepto <> "" Then
            cboConcepto.SelectedValue = valorConcepto
            txtDescripcion.Text = descripcion
            mostrarBotones(False, True)
        End If
    End Sub

    Private Sub frmAgregaConceptoNuevo_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        cargaInicial()
    End Sub

    Private Sub btnLimpiar_Click(sender As System.Object, e As System.EventArgs) Handles btnLimpiar.Click
        cboConcepto.SelectedIndex = 0
        txtDescripcion.Text = ""
        mostrarBotones(True, False)
    End Sub

    Private Sub btnGuardar_Click(sender As Object, e As System.EventArgs) Handles btnGuardar.Click
        If MsgBox("¿Está seguro que desea registrar este concepto?", MsgBoxStyle.Question + MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2, "Mensajes al Usuario") = MsgBoxResult.Yes Then
            If servicio1.registrarClienteConcepto(codCliente, cboConcepto.SelectedValue.ToString, txtDescripcion.Text.Trim, usuario) = True Then
                util.mensaje("Se registró correctamente")
                DialogResult = Windows.Forms.DialogResult.OK
            Else
                util.mensaje("Ocurrio un error. Intentelo de nuevo.")
            End If
        End If
    End Sub

    Private Sub btnActualizar_Click(sender As Object, e As System.EventArgs) Handles btnActualizar.Click
        If MsgBox("¿Está seguro que desea actualizar este concepto?", MsgBoxStyle.Question + MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2, "Mensajes al Usuario") = MsgBoxResult.Yes Then
            If servicio1.actualizartClienteConcepto(txtCliente.Text.Trim, cboConcepto.SelectedValue.ToString, txtDescripcion.Text.Trim, usuario, codCliConcepto) = True Then
                util.mensaje("Se actualizó correctamente.")
                DialogResult = Windows.Forms.DialogResult.OK
            Else
                util.mensaje("Ocurrió un error. Intentelo nuevamente.")
            End If
        End If
    End Sub

End Class